Count(FCGeneric)

 

Object and Type

 

Object  : FCGeneric

Type     : Method

 

 

Prototype

 

Public Function Count() As Long

 

 

Description

 

This method returns back the number of rows currently in a generic object. For example, if you query a database table, and the query returned 14 rows, you would expect Count to return 14. If you then called on AddNew to add a row, it would return 15.

 

There is one small complexity to Count, however. If this generic object is a child object (that is, it was traversed from (in a query) from a parent object), the Count method will return how many rows in this generic object are related to the current row in the parent object. Thus, as you move through the parent object, the number of rows that Count returns will change.

 

To see how many total rows are in this generic object, even if it is a child object, use the TotalCount method.

 

 

Returns     

 

The total number of rows in this generic. Or, for a child object, the number of records related to the current record in the parent object.

 

 

Example

 

The following example queries the case table and the notes_log table. Then, for each case, it reports how many notes are related.

 

JavaScript:

The code in this example is written in JavaScript for inclusion in ASP pages.

 

// Query case and notes_log

  var boCase = FCSession.CreateGeneric();

  boCase.SimpleQuery("case");

 

  var boNotes = FCSession.CreateGeneric();

  boNotes.TraverseFromParent(boCase, "case_notes2notes_log");

  boCase.Query();

 

  // Loop through all cases

  // For each, print the case ID

  while (boCase.EOF != true)

  {

    Response.Write ("Case: " + boCase("id_number"));  

   

    // Now print out how many notes exist for that case only

    Response.Write ("  Number of Notes: " + boNotes.Count());

   

    // Now get the next case

    boCase.MoveNext();

  }

 

Visual Basic:

The code in this example is written in Visual Basic.

 

  Dim boCase As FCGeneric

  Dim boNotes As FCGeneric

 

  Set boCase = fc_session.CreateGeneric

  boCase.SimpleQuery "case"

 

  Set boNotes = fc_session.CreateGeneric

  boNotes.TraverseFromParent boCase, "case_notes2notes_log"

  boCase.Query

 

  While boCase.EOF = False

    MsgBox "Case: " & boCase("id_number") & " " & "Num of notes: " & _

           Trim$(Str$(boNotes.Count))

    boCase.MoveNext

  Wend